﻿Public Class Mosquetero : Inherits Arquero

    Private Const FUERZA_MOSQ = FUERZA_ARQ
    Private Const ATAQUE_MOSQ = ATAQUE_ARQ
    Private Const VELOCIDAD_MOSQ = VELOCIDAD_ARQ
    Private Const VIDA_MOSQ = VIDA_ARQ
    Private Const COSTE_MOSQ = COSTE_ARQ + 3
    Private Const DEFENSA_MOSQ = DEFENSA_ARQ
    Private Const DISCIPLINA_MOSQ = DISCIPLINA_ARQ
    Private Const TAMAÑO_MOSQ = TAMAÑO_ARQ
    Private Const DISPARO_MOSQ = DISPARO_ARQ + 2
    Private Const ALCANCE_MOSQ = ALCANCE_ARQ + 1


    Public Sub New()
        Me.Alcance = ALCANCE_MOSQ
        Me.Disparo = DISPARO_MOSQ
        Me.Fuerza = FUERZA_MOSQ
        Me.Ataque = ATAQUE_MOSQ
        Me.Velocidad = VELOCIDAD_MOSQ
        Me.Vida = VIDA_MOSQ
        Me.Defensa = DEFENSA_MOSQ
        Me.Coste = COSTE_MOSQ
        Me.Tamaño = TAMAÑO_MOSQ
        Me.Disciplina = DISCIPLINA_MOSQ
    End Sub
End Class
